10 REM ********************************
20 REM * (C) 1993 BY TRAINSOFT        *
30 REM *                              *
40 REM * (W) BY SVEN STOLZENBERG      *
50 REM *        AN DER KAISERMUEHLE 4 *
60 REM *        41747 VIERSEN 1       *
70 REM ********************************
80 REM  *********
90 REM  * MENUE *
100 REM *********
110 POKE53280,.:POKE53281,3
120 PRINT"[147][144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
130 PRINT"[221][146]                                      [221]";
140 PRINT"[221][146]   DEMO-PROGRAMM ZUR STEUERBAREN LED  [221]";
150 PRINT"[221][146]                                      [221]";
160 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
170 INPUT"EINSCHALTZEITRAUM :";A
180 INPUT"AUSSCHALTZEITRAUM :";B
190 PRINT"   ERNEUTE EINGABE NACH DRUECKEN DER"
200 PRINT"   SPACE-TASTE !"
210 REM *******************************
220 REM *STEUERUNG DES PROZESSOR-PORTS*
230 REM *******************************
240 POKE .,PEEK(.) AND NOT 16
250 POKE .,PEEK(.) OR 16
260 FOR I=. TO A:NEXT
270 POKE 192,1:POKE 1,PEEK(1) OR 32
280 FOR J=. TO B:NEXT
290 POKE 1,PEEK(1) AND 39:POKE 192,.
300 REM *******************
310 REM * TASTATURABFRAGE *
320 REM *******************
330 GET A$:IF A$="" THEN 260
340 IF A$=CHR$(32) THEN 110